home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / exec / remresource.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  1KB  |  71 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: remresource.c,v 1.5 1996/10/24 15:50:56 aros Exp $
  4.     $Log: remresource.c,v $
  5.     Revision 1.5  1996/10/24 15:50:56  aros
  6.     Use the official AROS macros over the __AROS versions.
  7.  
  8.     Revision 1.4  1996/08/13 13:56:07  digulla
  9.     Replaced AROS_LA by AROS_LHA
  10.     Replaced some AROS_LH*I by AROS_LH*
  11.     Sorted and added includes
  12.  
  13.     Revision 1.3  1996/08/01 17:41:17  digulla
  14.     Added standard header for all files
  15.  
  16.     Desc:
  17.     Lang: english
  18. */
  19. #include <exec/execbase.h>
  20. #include <aros/libcall.h>
  21. #include <dos/dos.h>
  22.  
  23. /*****************************************************************************
  24.  
  25.     NAME */
  26.     #include <clib/exec_protos.h>
  27.  
  28.     AROS_LH1(void, RemResource,
  29.  
  30. /*  SYNOPSIS */
  31.     AROS_LHA(APTR, resource,A1),
  32.  
  33. /*  LOCATION */
  34.     struct ExecBase *, SysBase, 82, Exec)
  35.  
  36. /*  FUNCTION
  37.     Removes a resource from the system resource list.
  38.  
  39.     INPUTS
  40.     resource - Pointer to the resource.
  41.  
  42.     RESULT
  43.  
  44.     NOTES
  45.  
  46.     EXAMPLE
  47.  
  48.     BUGS
  49.  
  50.     SEE ALSO
  51.     AddResource(), OpenResource()
  52.  
  53.     INTERNALS
  54.  
  55.     HISTORY
  56.  
  57. ******************************************************************************/
  58. {
  59.     AROS_LIBFUNC_INIT
  60.  
  61.     /* Arbitrate for the resource list */
  62.     Forbid();
  63.  
  64.     Remove((struct Node *)resource);
  65.  
  66.     /* All done. */
  67.     Permit();
  68.     AROS_LIBFUNC_EXIT
  69. } /* RemResource */
  70.  
  71.